perl object example